﻿Public Class Articulo

    Dim _ARTCOD, _ARTDESC, _FAMCOD, _UNMCOD As String
    Dim _ARTACT As String
    Dim _ARACANTL As Integer

    Sub New()

    End Sub

    Sub New(ByVal artcod As String, ByVal artdesc As String, ByVal famcod As String, ByVal unmcod As String, _
            ByVal aracantlar As Integer, ByVal artact As String)
        Me._ARTCOD = artcod
        Me._ARTDESC = artdesc
        Me._FAMCOD = famcod
        Me._UNMCOD = unmcod
        Me._ARACANTL = aracantlar
        Me._ARTACT = artact
    End Sub

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(ByVal value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property ART_Descripcion() As String
        Get
            Return _ARTDESC
        End Get
        Set(ByVal value As String)
            _ARTDESC = value
        End Set
    End Property

    Public Property FAM_Codigo() As String
        Get
            Return _FAMCOD
        End Get
        Set(ByVal value As String)
            _FAMCOD = value
        End Set
    End Property

    Public Property UNM_Codigo() As String
        Get
            Return _UNMCOD
        End Get
        Set(ByVal value As String)
            _UNMCOD = value
        End Set
    End Property

    Public Property ART_CantLargo() As Integer
        Get
            Return _ARACANTL
        End Get
        Set(ByVal value As Integer)
            _ARACANTL = value
        End Set
    End Property

    Public Property ART_Activo() As String
        Get
            Return _ARTACT
        End Get
        Set(ByVal value As String)
            _ARTACT = value
        End Set
    End Property

End Class
